;; import lists/assoc.scm

(define t '((a . 1)
	    (x . 7)
	    (b . 2)
	    (y . 6)
	    (c . 3)
	    (z . 5)))

(assoc-split '(a b c) t
	     (lambda (l r)
	       (print `(l ,l))
	       (print `(r ,r))))
